home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
pcboard
/
msgtag11.zip
/
QSCAN.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-01-30
|
2KB
|
172 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
Int INT001
Int INT002
;------------------------------------------------------------------------------
STRING002 = ReadLine(PCBDat(), 204)
STRING002 = FileInf(STRING002, 6) + ":" + FileInf(STRING002, 7)
STRING004 = STRING002 + "msgtag.use"
STRING006 = STRING002 + "mtg" + String(CurConf()) + ".lst"
STRING005 = STRING002 + "userpl.dat"
INT001 = TokCount()
If (INT001) Then
STRING002 = ""
For INT002 = 1 To INT001
STRING002 = STRING002 + Upper(GetToken()) + " "
Next
If (InStr(STRING002, "A") && !InStr(STRING002, "YA")) Then
Gosub LABEL003
End
Endif
Endif
GetUser
If (Exist(STRING006) && (FileInf(STRING006, 4) > 0)) Then
STRING001 = "S"
Newline
PrintLn "@X02You have @X0ETAGGED @X02messages in this conference"
STRING003 = "@X0ES@X0F)@X02tart a new tag list, @X0EA@X0F)@X02ppend to current tag list, @X02(@X0FEnter@X02)=@X0Estart"
InputStr STRING003, STRING001, 14, 1, "AS", 8 + 256 + 4 + 2
If (STRING001 == "S") Then
Delete STRING006
Gosub LABEL004
Endif
Endif
If (INT001) Goto LABEL001
Newline
STRING001 = ""
STRING002 = String(LoMsgNum()) + "-" + String(HiMsgNum())
STRING003 = "(H)elp, (" + STRING002 + "), Message Scan Command"
InputStr STRING003, STRING001, 14, 80, Mask_Ascii(), 8 + 256 + 16
If (STRING001 == "") End
:LABEL001
Gosub LABEL003
Gosub LABEL004
FOpen 7, STRING005, 1, 0
FPutLn 7, String(U_PageLen)
FClose 7
U_PageLen = 22
PutUser
:LABEL002
Cls
End
:LABEL003
If (INT001) STRING001 = STRING002
STRING001 = RTrim(STRING001, " ")
If ((STRING001 == "H") || (STRING001 == "HELP")) Then
KbdStuff "HELP Q" + Chr(13)
Goto LABEL002
Else
KbdStuff "Q " + STRING001 + Chr(13)
Endif
Return
:LABEL004
FAppend 1, STRING004, 1, 0
FClose 1
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 1 Cls
; 10 Goto
; 18 Let
; 1 PrintLn
; 9 If
; 1 FOpen
; 1 FAppend
; 2 FClose
; 1 FPutLn
; 1 GetUser
; 1 PutUser
; 1 Delete
; 2 InputStr
; 4 Gosub
; 2 Return
; 2 Newline
; 2 KbdStuff
;
;
; ■ Functions used :
;
; 22 +
; 4 ==
; 1 <
; 1 <=
; 1 >
; 2 >=
; 8 !
; 4 &&
; 2 ||
; 1 Upper()
; 2 Chr()
; 2 InStr()
; 1 RTrim()
; 4 String()
; 1 Mask_Ascii()
; 1 CurConf()
; 1 PCBDat()
; 1 ReadLine()
; 1 GetToken()
; 1 Exist()
; 3 FileInf()
; 1 TokCount()
; 1 LoMsgNum()
; 1 HiMsgNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Wd
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 5 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------